| / Developer CD Series 1995 August: Tool Chest
/ Dev.CD Aug 95 TC / Dev.CD Aug 95 TC.toast / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / User Contributions / Conquest 1.1.sea / Conquest 1.1 / CODE / Control / conquest-data-structures.lisp
| < prev | next > |
| MacBinary | 1993-02-19 | 9.4 KB | [TEXT/CCL2] |
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text| Confidence | Program | Detection | Match Type | Support |
|---|---|---|---|---|
| 10% | dexvert | MacBinary (archive/macBinary) | fallback | Supported |
| 1% | dexvert | Text File (text/txt) | fallback | Supported |
| 100% | file | MacBinary II, inited, Fri Feb 19 11:46:17 1993, modified Fri Feb 19 11:46:17 1993, creator Common Lisp 2, type ASCII, 8916 bytes "conquest-data-structures.lisp" , at 0x2354 479 bytes resource | default (weak) | |
| 99% | file | data | default | |
| 74% | TrID | Macintosh plain text (MacBinary) | default | |
| 25% | TrID | MacBinary 2 | default (weak) | |
| 100% | siegfried | fmt/1762 MacBinary (II) | default | |
| 100% | lsar | MacBinary | default |
| id metadata | |
|---|---|
| key | value |
| macFileType | [TEXT] |
| macFileCreator | [CCL2] |
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 1d 63 6f 6e 71 75 65 | 73 74 2d 64 61 74 61 2d |..conque|st-data-|
|00000010| 73 74 72 75 63 74 75 72 | 65 73 2e 6c 69 73 70 00 |structur|es.lisp.|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 43 43 4c | 32 01 00 00 00 00 00 00 |.TEXTCCL|2.......|
|00000050| 00 00 00 00 00 22 d4 00 | 00 01 df a7 aa bf 59 a7 |....."..|......Y.|
|00000060| aa bf 59 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..Y.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 97 e1 00 00 |........|........|
|00000080| 3b 3b 3b 20 63 6f 6e 71 | 75 65 73 74 2d 64 61 74 |;;; conq|uest-dat|
|00000090| 61 2d 73 74 72 75 63 74 | 75 72 65 73 2e 6c 69 73 |a-struct|ures.lis|
|000000a0| 70 0d 3b 3b 3b 0d 3b 3b | 3b 20 43 4f 4e 51 55 45 |p.;;;.;;|; CONQUE|
|000000b0| 53 54 20 41 49 20 50 52 | 4f 4a 45 43 54 0d 3b 3b |ST AI PR|OJECT.;;|
|000000c0| 3b 0d 3b 3b 3b 20 57 61 | 73 68 69 6e 67 74 6f 6e |;.;;; Wa|shington|
|000000d0| 20 55 6e 69 76 65 72 73 | 69 74 79 20 43 6f 6d 70 | Univers|ity Comp|
|000000e0| 75 74 65 72 20 53 63 69 | 65 6e 63 65 20 44 65 70 |uter Sci|ence Dep|
|000000f0| 61 72 74 6d 65 6e 74 0d | 3b 3b 3b 20 43 6f 70 79 |artment.|;;; Copy|
|00000100| 72 69 67 68 74 20 31 39 | 39 32 20 50 61 75 6c 20 |right 19|92 Paul |
|00000110| 4d 63 43 61 72 74 6e 65 | 79 2e 20 20 41 6c 6c 20 |McCartne|y. All |
|00000120| 52 69 67 68 74 73 20 52 | 65 73 65 72 76 65 64 2e |Rights R|eserved.|
|00000130| 0d 3b 3b 3b 0d 3b 3b 3b | 20 41 55 54 48 4f 52 3a |.;;;.;;;| AUTHOR:|
|00000140| 20 20 50 61 75 6c 20 4d | 63 43 61 72 74 6e 65 79 | Paul M|cCartney|
|00000150| 20 26 20 54 65 72 72 79 | 20 41 2e 20 49 64 6f 6c | & Terry| A. Idol|
|00000160| 0d 3b 3b 3b 0d 3b 3b 3b | 20 44 45 53 43 52 49 50 |.;;;.;;;| DESCRIP|
|00000170| 54 49 4f 4e 3a 0d 3b 3b | 3b 0d 3b 3b 3b 20 55 53 |TION:.;;|;.;;; US|
|00000180| 45 3a 0d 3b 3b 3b 0d 0d | 28 69 6e 2d 70 61 63 6b |E:.;;;..|(in-pack|
|00000190| 61 67 65 20 3a 63 6f 6e | 71 75 65 73 74 29 0d 0d |age :con|quest)..|
|000001a0| 28 65 78 70 6f 72 74 20 | 27 28 70 6c 61 79 2d 63 |(export |'(play-c|
|000001b0| 6f 6e 71 75 65 73 74 29 | 0d 20 20 20 20 20 20 20 |onquest)|. |
|000001c0| 20 3a 63 6f 6e 71 75 65 | 73 74 29 0d 0d 0d 28 64 | :conque|st)...(d|
|000001d0| 65 66 63 6c 61 73 73 20 | 63 6f 6e 71 75 65 73 74 |efclass |conquest|
|000001e0| 2d 63 6f 6e 74 72 6f 6c | 20 28 29 0d 20 20 28 28 |-control| (). ((|
|000001f0| 70 6c 61 79 65 72 73 20 | 3a 69 6e 69 74 61 72 67 |players |:initarg|
|00000200| 20 3a 70 6c 61 79 65 72 | 73 20 3a 61 63 63 65 73 | :player|s :acces|
|00000210| 73 6f 72 20 70 6c 61 79 | 65 72 73 29 0d 20 20 20 |sor play|ers). |
|00000220| 28 63 75 72 72 65 6e 74 | 2d 70 6c 61 79 65 72 20 |(current|-player |
|00000230| 3a 69 6e 69 74 61 72 67 | 20 3a 63 75 72 72 65 6e |:initarg| :curren|
|00000240| 74 2d 70 6c 61 79 65 72 | 20 3a 61 63 63 65 73 73 |t-player| :access|
|00000250| 6f 72 20 63 75 72 72 65 | 6e 74 2d 70 6c 61 79 65 |or curre|nt-playe|
|00000260| 72 29 0d 20 20 20 28 62 | 6f 61 72 64 20 3a 69 6e |r). (b|oard :in|
|00000270| 69 74 61 72 67 20 3a 62 | 6f 61 72 64 20 3a 61 63 |itarg :b|oard :ac|
|00000280| 63 65 73 73 6f 72 20 62 | 6f 61 72 64 29 0d 20 20 |cessor b|oard). |
|00000290| 20 28 63 6f 6e 74 69 6e | 65 6e 74 73 20 3a 69 6e | (contin|ents :in|
|000002a0| 69 74 61 72 67 20 3a 63 | 6f 6e 74 69 6e 65 6e 74 |itarg :c|ontinent|
|000002b0| 73 20 3a 61 63 63 65 73 | 73 6f 72 20 63 6f 6e 74 |s :acces|sor cont|
|000002c0| 69 6e 65 6e 74 73 29 0d | 20 20 20 28 77 69 6e 64 |inents).| (wind|
|000002d0| 6f 77 20 3a 69 6e 69 74 | 61 72 67 20 3a 77 69 6e |ow :init|arg :win|
|000002e0| 64 6f 77 20 3a 61 63 63 | 65 73 73 6f 72 20 77 69 |dow :acc|essor wi|
|000002f0| 6e 64 6f 77 29 0d 20 20 | 20 28 69 6e 69 74 2d 74 |ndow). | (init-t|
|00000300| 75 72 6e 73 20 3a 69 6e | 69 74 61 72 67 20 3a 69 |urns :in|itarg :i|
|00000310| 6e 69 74 2d 74 75 72 6e | 73 20 3a 61 63 63 65 73 |nit-turn|s :acces|
|00000320| 73 6f 72 20 69 6e 69 74 | 2d 74 75 72 6e 73 29 0d |sor init|-turns).|
|00000330| 20 20 20 28 6d 61 78 2d | 61 72 6d 69 65 73 20 3a | (max-|armies :|
|00000340| 69 6e 69 74 61 72 67 20 | 3a 6d 61 78 2d 61 72 6d |initarg |:max-arm|
|00000350| 69 65 73 20 3a 61 63 63 | 65 73 73 6f 72 20 6d 61 |ies :acc|essor ma|
|00000360| 78 2d 61 72 6d 69 65 73 | 29 0d 20 20 20 28 63 6f |x-armies|). (co|
|00000370| 75 6e 74 72 79 2d 64 65 | 66 65 61 74 65 64 2d 70 |untry-de|feated-p|
|00000380| 20 3a 69 6e 69 74 61 72 | 67 20 3a 63 6f 75 6e 74 | :initar|g :count|
|00000390| 72 79 2d 64 65 66 65 61 | 74 65 64 2d 70 20 3a 61 |ry-defea|ted-p :a|
|000003a0| 63 63 65 73 73 6f 72 20 | 63 6f 75 6e 74 72 79 2d |ccessor |country-|
|000003b0| 64 65 66 65 61 74 65 64 | 2d 70 29 0d 20 20 20 28 |defeated|-p). (|
|000003c0| 63 6f 6e 71 75 65 73 74 | 2d 76 61 6c 75 65 20 3a |conquest|-value :|
|000003d0| 69 6e 69 74 61 72 67 20 | 3a 63 6f 6e 71 75 65 73 |initarg |:conques|
|000003e0| 74 2d 76 61 6c 75 65 20 | 3a 61 63 63 65 73 73 6f |t-value |:accesso|
|000003f0| 72 20 63 6f 6e 71 75 65 | 73 74 2d 76 61 6c 75 65 |r conque|st-value|
|00000400| 29 0d 20 20 20 28 77 69 | 6e 64 6f 77 2d 73 69 7a |). (wi|ndow-siz|
|00000410| 65 20 3a 69 6e 69 74 61 | 72 67 20 3a 77 69 6e 64 |e :inita|rg :wind|
|00000420| 6f 77 2d 73 69 7a 65 20 | 3a 61 63 63 65 73 73 6f |ow-size |:accesso|
|00000430| 72 20 77 69 6e 64 6f 77 | 2d 73 69 7a 65 29 0d 20 |r window|-size). |
|00000440| 20 20 28 77 69 6e 64 6f | 77 2d 70 6f 73 69 74 69 | (windo|w-positi|
|00000450| 6f 6e 20 3a 69 6e 69 74 | 61 72 67 20 3a 77 69 6e |on :init|arg :win|
|00000460| 64 6f 77 2d 70 6f 73 69 | 74 69 6f 6e 20 3a 61 63 |dow-posi|tion :ac|
|00000470| 63 65 73 73 6f 72 20 77 | 69 6e 64 6f 77 2d 70 6f |cessor w|indow-po|
|00000480| 73 69 74 69 6f 6e 29 0d | 20 20 20 28 67 72 69 64 |sition).| (grid|
|00000490| 20 3a 61 63 63 65 73 73 | 6f 72 20 67 72 69 64 29 | :access|or grid)|
|000004a0| 0d 20 20 20 28 6d 61 78 | 2d 78 20 3a 61 63 63 65 |. (max|-x :acce|
|000004b0| 73 73 6f 72 20 6d 61 78 | 2d 78 29 0d 20 20 20 28 |ssor max|-x). (|
|000004c0| 6d 61 78 2d 79 20 3a 61 | 63 63 65 73 73 6f 72 20 |max-y :a|ccessor |
|000004d0| 6d 61 78 2d 79 29 0d 20 | 20 20 29 20 0d 20 20 28 |max-y). | ) . (|
|000004e0| 3a 64 65 66 61 75 6c 74 | 2d 69 6e 69 74 61 72 67 |:default|-initarg|
|000004f0| 73 0d 20 20 20 20 3a 77 | 69 6e 64 6f 77 2d 73 69 |s. :w|indow-si|
|00000500| 7a 65 20 23 40 28 35 30 | 30 20 32 30 30 29 0d 20 |ze #@(50|0 200). |
|00000510| 20 20 20 3a 77 69 6e 64 | 6f 77 2d 70 6f 73 69 74 | :wind|ow-posit|
|00000520| 69 6f 6e 20 23 40 28 30 | 20 34 30 29 0d 20 20 20 |ion #@(0| 40). |
|00000530| 20 3a 70 6c 61 79 65 72 | 73 20 28 29 0d 20 20 20 | :player|s (). |
|00000540| 20 3a 62 6f 61 72 64 20 | 28 29 0d 20 20 20 20 3a | :board |(). :|
|00000550| 63 6f 6e 74 69 6e 65 6e | 74 73 20 28 29 0d 20 20 |continen|ts (). |
|00000560| 20 20 3a 69 6e 69 74 2d | 74 75 72 6e 73 20 32 0d | :init-|turns 2.|
|00000570| 20 20 20 20 3a 6d 61 78 | 2d 61 72 6d 69 65 73 20 | :max|-armies |
|00000580| 31 30 30 0d 20 20 20 20 | 3a 63 6f 75 6e 74 72 79 |100. |:country|
|00000590| 2d 64 65 66 65 61 74 65 | 64 2d 70 20 6e 69 6c 0d |-defeate|d-p nil.|
|000005a0| 20 20 20 20 3a 63 6f 6e | 71 75 65 73 74 2d 76 61 | :con|quest-va|
|000005b0| 6c 75 65 20 35 0d 20 20 | 20 20 29 0d 20 20 29 0d |lue 5. | ). ).|
|000005c0| 0d 0d 28 64 65 66 73 74 | 72 75 63 74 20 70 6c 61 |..(defst|ruct pla|
|000005d0| 79 65 72 0d 20 20 69 64 | 0d 20 20 6e 61 6d 65 0d |yer. id|. name.|
|000005e0| 20 20 6f 62 6a 65 63 74 | 0d 20 20 63 6f 75 6e 74 | object|. count|
|000005f0| 72 69 65 73 0d 20 20 61 | 72 6d 69 65 73 2d 74 6f |ries. a|rmies-to|
|00000600| 2d 70 6c 61 63 65 0d 20 | 20 6e 2d 63 61 72 64 73 |-place. | n-cards|
|00000610| 0d 20 20 74 79 70 65 29 | 0d 0d 0d 28 64 65 66 73 |. type)|...(defs|
|00000620| 74 72 75 63 74 20 63 6f | 6e 74 69 6e 65 6e 74 0d |truct co|ntinent.|
|00000630| 20 20 69 64 0d 20 20 62 | 6f 72 64 65 72 0d 20 20 | id. b|order. |
|00000640| 62 6f 72 64 65 72 2d 63 | 6f 75 6e 74 72 69 65 73 |border-c|ountries|
|00000650| 0d 20 20 63 6f 75 6e 74 | 72 69 65 73 0d 20 20 70 |. count|ries. p|
|00000660| 6c 61 79 65 72 2d 6f 77 | 6e 73 0d 20 20 61 64 6a |layer-ow|ns. adj|
|00000670| 61 63 65 6e 74 2d 63 6f | 6e 74 69 6e 65 6e 74 73 |acent-co|ntinents|
|00000680| 29 0d 0d 0d 28 64 65 66 | 73 74 72 75 63 74 20 63 |)...(def|struct c|
|00000690| 65 6c 6c 0d 20 20 6f 77 | 6e 65 72 0d 20 20 70 6f |ell. ow|ner. po|
|000006a0| 73 0d 20 20 6e 2d 61 72 | 6d 69 65 73 0d 20 20 63 |s. n-ar|mies. c|
|000006b0| 6f 6e 74 69 6e 65 6e 74 | 0d 20 20 6e 65 69 67 68 |ontinent|. neigh|
|000006c0| 62 6f 72 73 0d 20 20 61 | 75 78 0d 20 20 63 6f 73 |bors. a|ux. cos|
|000006d0| 74 29 0d 0d 0d 28 64 65 | 66 76 61 72 20 2a 65 61 |t)...(de|fvar *ea|
|000006e0| 72 74 68 2d 77 6f 72 6c | 64 2a 29 0d 0d 0d 28 64 |rth-worl|d*)...(d|
|000006f0| 65 66 75 6e 20 70 6c 61 | 79 2d 63 6f 6e 71 75 65 |efun pla|y-conque|
|00000700| 73 74 20 28 26 6b 65 79 | 20 28 70 6c 61 79 65 72 |st (&key| (player|
|00000710| 73 20 28 6c 69 73 74 20 | 28 6c 69 73 74 20 27 62 |s (list |(list 'b|
|00000720| 61 73 69 63 2d 70 6c 61 | 79 65 72 20 22 43 6f 6d |asic-pla|yer "Com|
|00000730| 70 75 74 65 72 31 22 20 | 2a 62 6c 75 65 2d 63 6f |puter1" |*blue-co|
|00000740| 6c 6f 72 2a 29 0d 20 20 | 20 20 20 20 20 20 20 20 |lor*). | |
|00000750| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000760| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000770| 28 6c 69 73 74 20 27 62 | 61 73 69 63 2d 70 6c 61 |(list 'b|asic-pla|
|00000780| 79 65 72 20 22 43 6f 6d | 70 75 74 65 72 32 22 20 |yer "Com|puter2" |
|00000790| 2a 79 65 6c 6c 6f 77 2d | 63 6f 6c 6f 72 2a 29 29 |*yellow-|color*))|
|000007a0| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |). | |
|000007b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 77 6f | | (wo|
|000007c0| 72 6c 64 20 2a 65 61 72 | 74 68 2d 77 6f 72 6c 64 |rld *ear|th-world|
|000007d0| 2a 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |*). | |
|000007e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 28 63 | | (c|
|000007f0| 6f 75 6e 74 72 79 2d 63 | 61 70 61 63 69 74 79 20 |ountry-c|apacity |
|00000800| 31 30 30 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |100). | |
|00000810| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000820| 28 77 69 6e 64 6f 77 2d | 73 69 7a 65 20 23 40 28 |(window-|size #@(|
|00000830| 36 32 30 20 34 36 30 29 | 29 0d 20 20 20 20 20 20 |620 460)|). |
|00000840| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000850| 20 20 20 20 20 28 77 69 | 6e 64 6f 77 2d 70 6f 73 | (wi|ndow-pos|
|00000860| 69 74 69 6f 6e 20 23 40 | 28 30 20 34 30 29 29 29 |ition #@|(0 40)))|
|00000870| 0d 0d 20 20 28 6d 61 6b | 65 2d 69 6e 73 74 61 6e |.. (mak|e-instan|
|00000880| 63 65 20 27 63 6f 6e 71 | 75 65 73 74 2d 63 6f 6e |ce 'conq|uest-con|
|00000890| 74 72 6f 6c 0d 20 20 20 | 20 3a 77 69 6e 64 6f 77 |trol. | :window|
|000008a0| 2d 73 69 7a 65 20 77 69 | 6e 64 6f 77 2d 73 69 7a |-size wi|ndow-siz|
|000008b0| 65 0d 20 20 20 20 3a 77 | 69 6e 64 6f 77 2d 70 6f |e. :w|indow-po|
|000008c0| 73 69 74 69 6f 6e 20 77 | 69 6e 64 6f 77 2d 70 6f |sition w|indow-po|
|000008d0| 73 69 74 69 6f 6e 0d 20 | 20 20 20 3a 62 6f 61 72 |sition. | :boar|
|000008e0| 64 20 28 66 69 72 73 74 | 20 77 6f 72 6c 64 29 0d |d (first| world).|
|000008f0| 20 20 20 20 3a 63 6f 6e | 74 69 6e 65 6e 74 73 20 | :con|tinents |
|00000900| 28 73 65 63 6f 6e 64 20 | 77 6f 72 6c 64 29 0d 20 |(second |world). |
|00000910| 20 20 20 3a 6d 61 78 2d | 61 72 6d 69 65 73 20 63 | :max-|armies c|
|00000920| 6f 75 6e 74 72 79 2d 63 | 61 70 61 63 69 74 79 0d |ountry-c|apacity.|
|00000930| 20 20 20 20 3a 70 6c 61 | 79 65 72 73 20 70 6c 61 | :pla|yers pla|
|00000940| 79 65 72 73 29 0d 20 20 | 74 29 0d 0d 0d 0d 28 64 |yers). |t)....(d|
|00000950| 65 66 6d 65 74 68 6f 64 | 20 69 6e 69 74 69 61 6c |efmethod| initial|
|00000960| 69 7a 65 2d 69 6e 73 74 | 61 6e 63 65 20 28 28 6f |ize-inst|ance ((o|
|00000970| 62 20 63 6f 6e 71 75 65 | 73 74 2d 63 6f 6e 74 72 |b conque|st-contr|
|00000980| 6f 6c 29 20 26 72 65 73 | 74 20 69 6e 69 74 61 72 |ol) &res|t initar|
|00000990| 67 73 29 0d 20 20 28 64 | 65 63 6c 61 72 65 20 28 |gs). (d|eclare (|
|000009a0| 69 67 6e 6f 72 65 20 69 | 6e 69 74 61 72 67 73 29 |ignore i|nitargs)|
|000009b0| 29 0d 20 20 28 63 61 6c | 6c 2d 6e 65 78 74 2d 6d |). (cal|l-next-m|
|000009c0| 65 74 68 6f 64 29 0d 0d | 20 20 28 66 69 6e 64 2d |ethod)..| (find-|
|000009d0| 6d 61 78 20 6f 62 29 0d | 20 20 28 69 6e 69 74 69 |max ob).| (initi|
|000009e0| 61 6c 69 7a 65 2d 70 6c | 61 79 65 72 73 2d 61 6e |alize-pl|ayers-an|
|000009f0| 64 2d 77 69 6e 64 6f 77 | 20 6f 62 29 0d 20 20 28 |d-window| ob). (|
|00000a00| 69 6e 69 74 69 61 6c 69 | 7a 65 2d 63 6f 6e 74 69 |initiali|ze-conti|
|00000a10| 6e 65 6e 74 73 20 6f 62 | 29 0d 20 20 28 69 6e 69 |nents ob|). (ini|
|00000a20| 74 69 61 6c 69 7a 65 2d | 67 72 69 64 2d 63 65 6c |tialize-|grid-cel|
|00000a30| 6c 73 20 6f 62 29 0d 20 | 20 28 69 6e 69 74 69 61 |ls ob). | (initia|
|00000a40| 6c 69 7a 65 2d 63 6f 6e | 74 69 6e 65 6e 74 2d 62 |lize-con|tinent-b|
|00000a50| 6f 72 64 65 72 73 20 6f | 62 29 0d 20 20 28 69 6e |orders o|b). (in|
|00000a60| 69 74 69 61 6c 69 7a 65 | 2d 61 64 6a 61 63 65 6e |itialize|-adjacen|
|00000a70| 74 2d 63 6f 6e 74 69 6e | 65 6e 74 73 20 6f 62 29 |t-contin|ents ob)|
|00000a80| 0d 0d 20 20 28 73 65 74 | 66 20 28 63 75 72 72 65 |.. (set|f (curre|
|00000a90| 6e 74 2d 70 6c 61 79 65 | 72 20 6f 62 29 20 28 70 |nt-playe|r ob) (p|
|00000aa0| 6c 61 79 65 72 2d 69 64 | 20 28 66 69 72 73 74 20 |layer-id| (first |
|00000ab0| 28 70 6c 61 79 65 72 73 | 20 6f 62 29 29 29 29 0d |(players| ob)))).|
|00000ac0| 0d 20 20 28 73 65 6c 65 | 63 74 2d 63 6f 75 6e 74 |. (sele|ct-count|
|00000ad0| 72 79 2d 6c 6f 6f 70 20 | 6f 62 29 0d 20 29 0d 0d |ry-loop |ob). )..|
|00000ae0| 0d 28 64 65 66 6d 65 74 | 68 6f 64 20 66 69 6e 64 |.(defmet|hod find|
|00000af0| 2d 6d 61 78 20 28 28 6f | 62 20 63 6f 6e 71 75 65 |-max ((o|b conque|
|00000b00| 73 74 2d 63 6f 6e 74 72 | 6f 6c 29 29 0d 20 20 28 |st-contr|ol)). (|
|00000b10| 73 65 74 66 20 28 6d 61 | 78 2d 78 20 6f 62 29 20 |setf (ma|x-x ob) |
|00000b20| 30 29 0d 20 20 28 73 65 | 74 66 20 28 6d 61 78 2d |0). (se|tf (max-|
|00000b30| 79 20 6f 62 29 20 30 29 | 0d 20 20 28 64 6f 6c 69 |y ob) 0)|. (doli|
|00000b40| 73 74 20 28 63 65 6c 6c | 20 28 62 6f 61 72 64 20 |st (cell| (board |
|00000b50| 6f 62 29 29 0d 20 20 20 | 20 28 6c 65 74 2a 20 28 |ob)). | (let* (|
|00000b60| 28 70 6f 73 69 74 69 6f | 6e 20 28 66 69 72 73 74 |(positio|n (first|
|00000b70| 20 63 65 6c 6c 29 29 0d | 20 20 20 20 20 20 20 20 | cell)).| |
|00000b80| 20 20 20 28 78 20 28 66 | 69 72 73 74 20 70 6f 73 | (x (f|irst pos|
|00000b90| 69 74 69 6f 6e 29 29 0d | 20 20 20 20 20 20 20 20 |ition)).| |
|00000ba0| 20 20 20 28 79 20 28 73 | 65 63 6f 6e 64 20 70 6f | (y (s|econd po|
|00000bb0| 73 69 74 69 6f 6e 29 29 | 29 0d 20 20 20 20 20 20 |sition))|). |
|00000bc0| 28 69 66 20 28 3e 20 78 | 20 28 6d 61 78 2d 78 20 |(if (> x| (max-x |
|00000bd0| 6f 62 29 29 20 28 73 65 | 74 66 20 28 6d 61 78 2d |ob)) (se|tf (max-|
|00000be0| 78 20 6f 62 29 20 78 29 | 29 0d 20 20 20 20 20 20 |x ob) x)|). |
|00000bf0| 28 69 66 20 28 3e 20 79 | 20 28 6d 61 78 2d 79 20 |(if (> y| (max-y |
|00000c00| 6f 62 29 29 20 28 73 65 | 74 66 20 28 6d 61 78 2d |ob)) (se|tf (max-|
|00000c10| 79 20 6f 62 29 20 79 29 | 29 29 29 20 29 0d 0d 0d |y ob) y)|))) )...|
|00000c20| 28 64 65 66 6d 65 74 68 | 6f 64 20 69 6e 69 74 69 |(defmeth|od initi|
|00000c30| 61 6c 69 7a 65 2d 63 6f | 6e 74 69 6e 65 6e 74 73 |alize-co|ntinents|
|00000c40| 20 28 28 6f 62 20 63 6f | 6e 71 75 65 73 74 2d 63 | ((ob co|nquest-c|
|00000c50| 6f 6e 74 72 6f 6c 29 29 | 0d 20 20 28 6c 65 74 20 |ontrol))|. (let |
|00000c60| 28 28 63 6f 6e 74 69 6e | 65 6e 74 73 20 28 29 29 |((contin|ents ())|
|00000c70| 29 0d 20 20 20 20 28 64 | 6f 6c 69 73 74 20 28 63 |). (d|olist (c|
|00000c80| 6f 6e 74 69 6e 65 6e 74 | 20 28 63 6f 6e 74 69 6e |ontinent| (contin|
|00000c90| 65 6e 74 73 20 6f 62 29 | 29 0d 20 20 20 20 20 20 |ents ob)|). |
|00000ca0| 28 70 75 73 68 20 28 6d | 61 6b 65 2d 63 6f 6e 74 |(push (m|ake-cont|
|00000cb0| 69 6e 65 6e 74 20 0d 20 | 20 20 20 20 20 20 20 20 |inent . | |
|00000cc0| 20 20 20 20 3a 69 64 20 | 28 67 65 6e 73 79 6d 20 | :id |(gensym |
|00000cd0| 22 63 6f 6e 74 69 6e 65 | 6e 74 22 29 0d 20 20 20 |"contine|nt"). |
|00000ce0| 20 20 20 20 20 20 20 20 | 20 20 3a 62 6f 72 64 65 | | :borde|
|00000cf0| 72 20 63 6f 6e 74 69 6e | 65 6e 74 0d 20 20 20 20 |r contin|ent. |
|00000d00| 20 20 20 20 20 20 20 20 | 20 3a 62 6f 72 64 65 72 | | :border|
|00000d10| 2d 63 6f 75 6e 74 72 69 | 65 73 20 28 29 0d 20 20 |-countri|es (). |
|00000d20| 20 20 20 20 20 20 20 20 | 20 20 20 3a 63 6f 75 6e | | :coun|
|00000d30| 74 72 69 65 73 20 28 29 | 0d 20 20 20 20 20 20 20 |tries ()|. |
|00000d40| 20 20 20 20 20 20 3a 70 | 6c 61 79 65 72 2d 6f 77 | :p|layer-ow|
|00000d50| 6e 73 20 28 29 29 0d 20 | 20 20 20 20 20 20 20 20 |ns ()). | |
|00000d60| 20 20 20 63 6f 6e 74 69 | 6e 65 6e 74 73 29 29 0d | conti|nents)).|
|00000d70| 20 20 20 20 28 73 65 74 | 66 20 28 63 6f 6e 74 69 | (set|f (conti|
|00000d80| 6e 65 6e 74 73 20 6f 62 | 29 20 63 6f 6e 74 69 6e |nents ob|) contin|
|00000d90| 65 6e 74 73 29 29 29 0d | 0d 0d 28 64 65 66 6d 65 |ents))).|..(defme|
|00000da0| 74 68 6f 64 20 69 6e 69 | 74 69 61 6c 69 7a 65 2d |thod ini|tialize-|
|00000db0| 67 72 69 64 2d 63 65 6c | 6c 73 20 28 28 6f 62 20 |grid-cel|ls ((ob |
|00000dc0| 63 6f 6e 71 75 65 73 74 | 2d 63 6f 6e 74 72 6f 6c |conquest|-control|
|00000dd0| 29 29 0d 20 20 28 73 65 | 74 66 20 28 67 72 69 64 |)). (se|tf (grid|
|00000de0| 20 6f 62 29 20 0d 20 20 | 20 20 20 20 20 20 28 6d | ob) . | (m|
|00000df0| 61 6b 65 2d 61 72 72 61 | 79 20 28 6c 69 73 74 20 |ake-arra|y (list |
|00000e00| 28 31 2b 20 28 6d 61 78 | 2d 78 20 6f 62 29 29 20 |(1+ (max|-x ob)) |
|00000e10| 28 31 2b 20 28 6d 61 78 | 2d 79 20 6f 62 29 29 29 |(1+ (max|-y ob)))|
|00000e20| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00000e30| 20 20 20 20 20 3a 69 6e | 69 74 69 61 6c 2d 65 6c | :in|itial-el|
|00000e40| 65 6d 65 6e 74 20 6e 69 | 6c 29 29 0d 20 20 0d 20 |ement ni|l)). . |
|00000e50| 20 28 64 6f 6c 69 73 74 | 20 28 63 65 6c 6c 20 28 | (dolist| (cell (|
|00000e60| 62 6f 61 72 64 20 6f 62 | 29 29 0d 20 20 20 20 28 |board ob|)). (|
|00000e70| 6c 65 74 2a 20 28 28 70 | 6f 73 20 28 66 69 72 73 |let* ((p|os (firs|
|00000e80| 74 20 63 65 6c 6c 29 29 | 0d 20 20 20 20 20 20 20 |t cell))|. |
|00000e90| 20 20 20 20 28 65 6e 63 | 2d 70 6f 73 20 28 6d 61 | (enc|-pos (ma|
|00000ea0| 6b 65 2d 70 6f 69 6e 74 | 20 28 66 69 72 73 74 20 |ke-point| (first |
|00000eb0| 70 6f 73 29 20 28 73 65 | 63 6f 6e 64 20 70 6f 73 |pos) (se|cond pos|
|00000ec0| 29 29 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 28 |))). | (|
|00000ed0| 6e 65 69 67 68 62 6f 72 | 73 20 28 73 65 63 6f 6e |neighbor|s (secon|
|00000ee0| 64 20 63 65 6c 6c 29 29 | 0d 20 20 20 20 20 20 20 |d cell))|. |
|00000ef0| 20 20 20 20 28 65 6e 63 | 2d 6e 65 69 67 68 62 6f | (enc|-neighbo|
|00000f00| 72 73 20 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |rs . | |
|00000f10| 28 6d 61 70 63 61 72 20 | 23 27 28 6c 61 6d 62 64 |(mapcar |#'(lambd|
|00000f20| 61 20 28 6e 29 20 28 6d | 61 6b 65 2d 70 6f 69 6e |a (n) (m|ake-poin|
|00000f30| 74 20 28 66 69 72 73 74 | 20 6e 29 20 28 73 65 63 |t (first| n) (sec|
|00000f40| 6f 6e 64 20 6e 29 29 29 | 20 6e 65 69 67 68 62 6f |ond n)))| neighbo|
|00000f50| 72 73 29 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |rs)). | |
|00000f60| 28 63 6f 6e 74 69 6e 65 | 6e 74 20 28 63 6f 6e 74 |(contine|nt (cont|
|00000f70| 69 6e 65 6e 74 2d 6f 66 | 20 6f 62 20 65 6e 63 2d |inent-of| ob enc-|
|00000f80| 70 6f 73 29 29 0d 20 20 | 20 20 20 20 20 20 20 20 |pos)). | |
|00000f90| 20 28 63 6f 75 6e 74 72 | 79 20 28 6d 61 6b 65 2d | (countr|y (make-|
|00000fa0| 63 65 6c 6c 0d 20 20 20 | 20 20 20 20 20 20 20 20 |cell. | |
|00000fb0| 20 20 20 20 20 20 20 20 | 20 20 3a 6f 77 6e 65 72 | | :owner|
|00000fc0| 20 6e 69 6c 0d 20 20 20 | 20 20 20 20 20 20 20 20 | nil. | |
|00000fd0| 20 20 20 20 20 20 20 20 | 20 20 3a 70 6f 73 20 65 | | :pos e|
|00000fe0| 6e 63 2d 70 6f 73 0d 20 | 20 20 20 20 20 20 20 20 |nc-pos. | |
|00000ff0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a 6e 2d 61 | | :n-a|
|00001000| 72 6d 69 65 73 20 30 0d | 20 20 20 20 20 20 20 20 |rmies 0.| |
|00001010| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 63 6f | | :co|
|00001020| 6e 74 69 6e 65 6e 74 20 | 63 6f 6e 74 69 6e 65 6e |ntinent |continen|
|00001030| 74 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |t. | |
|00001040| 20 20 20 20 20 20 20 3a | 6e 65 69 67 68 62 6f 72 | :|neighbor|
|00001050| 73 20 65 6e 63 2d 6e 65 | 69 67 68 62 6f 72 73 29 |s enc-ne|ighbors)|
|00001060| 29 29 0d 20 20 20 20 20 | 20 28 73 65 74 66 20 28 |)). | (setf (|
|00001070| 61 72 65 66 20 28 67 72 | 69 64 20 6f 62 29 20 28 |aref (gr|id ob) (|
|00001080| 66 69 72 73 74 20 70 6f | 73 29 20 28 73 65 63 6f |first po|s) (seco|
|00001090| 6e 64 20 70 6f 73 29 29 | 20 63 6f 75 6e 74 72 79 |nd pos))| country|
|000010a0| 29 0d 20 20 20 20 20 20 | 28 70 75 73 68 20 63 6f |). |(push co|
|000010b0| 75 6e 74 72 79 20 28 63 | 6f 6e 74 69 6e 65 6e 74 |untry (c|ontinent|
|000010c0| 2d 63 6f 75 6e 74 72 69 | 65 73 20 63 6f 6e 74 69 |-countri|es conti|
|000010d0| 6e 65 6e 74 29 29 20 29 | 29 0d 0d 20 20 28 64 6f |nent)) )|).. (do|
|000010e0| 6c 69 73 74 20 28 63 65 | 6c 6c 20 28 62 6f 61 72 |list (ce|ll (boar|
|000010f0| 64 20 6f 62 29 29 0d 20 | 20 20 20 28 6c 65 74 2a |d ob)). | (let*|
|00001100| 20 28 28 70 6f 73 20 28 | 66 69 72 73 74 20 63 65 | ((pos (|first ce|
|00001110| 6c 6c 29 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |ll)). | |
|00001120| 28 63 6f 75 6e 74 72 79 | 20 28 63 6f 75 6e 74 72 |(country| (countr|
|00001130| 79 2d 61 74 20 6f 62 20 | 28 6d 61 6b 65 2d 70 6f |y-at ob |(make-po|
|00001140| 69 6e 74 20 28 66 69 72 | 73 74 20 70 6f 73 29 20 |int (fir|st pos) |
|00001150| 28 73 65 63 6f 6e 64 20 | 70 6f 73 29 29 29 29 0d |(second |pos)))).|
|00001160| 20 20 20 20 20 20 20 20 | 20 20 20 28 6e 65 69 67 | | (neig|
|00001170| 68 62 6f 72 73 20 28 63 | 65 6c 6c 2d 6e 65 69 67 |hbors (c|ell-neig|
|00001180| 68 62 6f 72 73 20 63 6f | 75 6e 74 72 79 29 29 29 |hbors co|untry)))|
|00001190| 0d 20 20 20 20 20 20 28 | 73 65 74 66 20 28 63 65 |. (|setf (ce|
|000011a0| 6c 6c 2d 6e 65 69 67 68 | 62 6f 72 73 20 63 6f 75 |ll-neigh|bors cou|
|000011b0| 6e 74 72 79 29 0d 20 20 | 20 20 20 20 20 20 20 20 |ntry). | |
|000011c0| 20 20 28 6d 61 70 63 61 | 72 20 23 27 28 6c 61 6d | (mapca|r #'(lam|
|000011d0| 62 64 61 20 28 6e 65 69 | 67 68 62 6f 72 29 20 28 |bda (nei|ghbor) (|
|000011e0| 63 6f 75 6e 74 72 79 2d | 61 74 20 6f 62 20 6e 65 |country-|at ob ne|
|000011f0| 69 67 68 62 6f 72 29 29 | 20 6e 65 69 67 68 62 6f |ighbor))| neighbo|
|00001200| 72 73 29 29 20 29 29 20 | 29 0d 20 0d 0d 28 64 65 |rs)) )) |). ..(de|
|00001210| 66 6d 65 74 68 6f 64 20 | 63 6f 6e 74 69 6e 65 6e |fmethod |continen|
|00001220| 74 2d 6f 66 20 28 28 6f | 62 20 63 6f 6e 71 75 65 |t-of ((o|b conque|
|00001230| 73 74 2d 63 6f 6e 74 72 | 6f 6c 29 20 70 6f 73 69 |st-contr|ol) posi|
|00001240| 74 69 6f 6e 29 0d 20 20 | 28 6c 65 74 20 28 28 61 |tion). |(let ((a|
|00001250| 6e 73 77 65 72 20 6e 69 | 6c 29 29 0d 20 20 20 20 |nswer ni|l)). |
|00001260| 28 64 6f 6c 69 73 74 20 | 28 63 6f 6e 74 69 6e 65 |(dolist |(contine|
|00001270| 6e 74 20 28 63 6f 6e 74 | 69 6e 65 6e 74 73 20 6f |nt (cont|inents o|
|00001280| 62 29 20 61 6e 73 77 65 | 72 29 0d 20 20 20 20 20 |b) answe|r). |
|00001290| 20 28 6c 65 74 2a 20 28 | 28 62 6f 72 64 65 72 20 | (let* (|(border |
|000012a0| 28 63 6f 6e 74 69 6e 65 | 6e 74 2d 62 6f 72 64 65 |(contine|nt-borde|
|000012b0| 72 20 63 6f 6e 74 69 6e | 65 6e 74 29 29 0d 20 20 |r contin|ent)). |
|000012c0| 20 20 20 20 20 20 20 20 | 20 20 20 28 74 6f 70 6c | | (topl|
|000012d0| 65 66 74 20 28 66 69 72 | 73 74 20 62 6f 72 64 65 |eft (fir|st borde|
|000012e0| 72 29 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |r)). | |
|000012f0| 20 28 6c 65 66 74 20 28 | 66 69 72 73 74 20 74 6f | (left (|first to|
|00001300| 70 6c 65 66 74 29 29 0d | 20 20 20 20 20 20 20 20 |pleft)).| |
|00001310| 20 20 20 20 20 28 74 6f | 70 20 28 73 65 63 6f 6e | (to|p (secon|
|00001320| 64 20 74 6f 70 6c 65 66 | 74 29 29 0d 20 20 20 20 |d toplef|t)). |
|00001330| 20 20 20 20 20 20 20 20 | 20 28 62 6f 74 74 6f 6d | | (bottom|
|00001340| 72 69 67 68 74 20 28 73 | 65 63 6f 6e 64 20 62 6f |right (s|econd bo|
|00001350| 72 64 65 72 29 29 0d 20 | 20 20 20 20 20 20 20 20 |rder)). | |
|00001360| 20 20 20 20 28 72 69 67 | 68 74 20 28 66 69 72 73 | (rig|ht (firs|
|00001370| 74 20 62 6f 74 74 6f 6d | 72 69 67 68 74 29 29 0d |t bottom|right)).|
|00001380| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 62 6f | | (bo|
|00001390| 74 74 6f 6d 20 28 73 65 | 63 6f 6e 64 20 62 6f 74 |ttom (se|cond bot|
|000013a0| 74 6f 6d 72 69 67 68 74 | 29 29 0d 20 20 20 20 20 |tomright|)). |
|000013b0| 20 20 20 20 20 20 20 20 | 28 78 20 28 70 6f 69 6e | |(x (poin|
|000013c0| 74 2d 68 20 70 6f 73 69 | 74 69 6f 6e 29 29 0d 20 |t-h posi|tion)). |
|000013d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 79 20 28 | | (y (|
|000013e0| 70 6f 69 6e 74 2d 76 20 | 70 6f 73 69 74 69 6f 6e |point-v |position|
|000013f0| 29 29 29 0d 20 20 20 20 | 20 20 20 20 28 69 66 20 |))). | (if |
|00001400| 28 61 6e 64 20 28 3c 3d | 20 6c 65 66 74 20 78 20 |(and (<=| left x |
|00001410| 72 69 67 68 74 29 0d 20 | 20 20 20 20 20 20 20 20 |right). | |
|00001420| 20 20 20 20 20 20 20 20 | 28 3c 3d 20 74 6f 70 20 | |(<= top |
|00001430| 79 20 62 6f 74 74 6f 6d | 29 29 0d 20 20 20 20 20 |y bottom|)). |
|00001440| 20 20 20 20 20 28 73 65 | 74 66 20 61 6e 73 77 65 | (se|tf answe|
|00001450| 72 20 63 6f 6e 74 69 6e | 65 6e 74 29 29 20 29 29 |r contin|ent)) ))|
|00001460| 20 29 29 0d 0d 0d 28 64 | 65 66 6d 65 74 68 6f 64 | ))...(d|efmethod|
|00001470| 20 69 6e 69 74 69 61 6c | 69 7a 65 2d 61 64 6a 61 | initial|ize-adja|
|00001480| 63 65 6e 74 2d 63 6f 6e | 74 69 6e 65 6e 74 73 20 |cent-con|tinents |
|00001490| 28 28 6f 62 20 63 6f 6e | 71 75 65 73 74 2d 63 6f |((ob con|quest-co|
|000014a0| 6e 74 72 6f 6c 29 29 0d | 20 20 28 64 6f 6c 69 73 |ntrol)).| (dolis|
|000014b0| 74 20 28 63 6f 6e 74 69 | 6e 65 6e 74 20 28 63 6f |t (conti|nent (co|
|000014c0| 6e 74 69 6e 65 6e 74 73 | 20 6f 62 29 29 0d 20 20 |ntinents| ob)). |
|000014d0| 20 20 28 73 65 74 66 20 | 28 63 6f 6e 74 69 6e 65 | (setf |(contine|
|000014e0| 6e 74 2d 61 64 6a 61 63 | 65 6e 74 2d 63 6f 6e 74 |nt-adjac|ent-cont|
|000014f0| 69 6e 65 6e 74 73 20 63 | 6f 6e 74 69 6e 65 6e 74 |inents c|ontinent|
|00001500| 29 20 28 29 29 0d 20 20 | 20 20 28 6c 65 74 20 28 |) ()). | (let (|
|00001510| 28 63 6f 6e 74 69 6e 65 | 6e 74 2d 69 64 20 28 63 |(contine|nt-id (c|
|00001520| 6f 6e 74 69 6e 65 6e 74 | 2d 69 64 20 63 6f 6e 74 |ontinent|-id cont|
|00001530| 69 6e 65 6e 74 29 29 0d | 20 20 20 20 20 20 20 20 |inent)).| |
|00001540| 20 20 28 62 6f 72 64 65 | 72 73 20 28 63 6f 6e 74 | (borde|rs (cont|
|00001550| 69 6e 65 6e 74 2d 62 6f | 72 64 65 72 2d 63 6f 75 |inent-bo|rder-cou|
|00001560| 6e 74 72 69 65 73 20 63 | 6f 6e 74 69 6e 65 6e 74 |ntries c|ontinent|
|00001570| 29 29 0d 20 20 20 20 20 | 20 20 20 20 20 28 61 64 |)). | (ad|
|00001580| 6a 2d 63 6f 6e 74 69 6e | 65 6e 74 73 20 28 29 29 |j-contin|ents ())|
|00001590| 29 0d 20 20 20 20 20 20 | 28 64 6f 6c 69 73 74 20 |). |(dolist |
|000015a0| 28 62 6f 72 64 65 72 20 | 62 6f 72 64 65 72 73 29 |(border |borders)|
|000015b0| 0d 20 20 20 20 20 20 20 | 20 28 6c 65 74 20 28 28 |. | (let ((|
|000015c0| 61 64 6a 2d 63 6f 75 6e | 74 72 69 65 73 20 28 63 |adj-coun|tries (c|
|000015d0| 65 6c 6c 2d 6e 65 69 67 | 68 62 6f 72 73 20 62 6f |ell-neig|hbors bo|
|000015e0| 72 64 65 72 29 29 29 0d | 20 20 20 20 20 20 20 20 |rder))).| |
|000015f0| 20 20 28 64 6f 6c 69 73 | 74 20 28 63 6f 75 6e 74 | (dolis|t (count|
|00001600| 72 79 20 61 64 6a 2d 63 | 6f 75 6e 74 72 69 65 73 |ry adj-c|ountries|
|00001610| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 28 6c |). | (l|
|00001620| 65 74 20 28 28 61 64 6a | 2d 63 6f 6e 74 69 6e 65 |et ((adj|-contine|
|00001630| 6e 74 20 28 63 65 6c 6c | 2d 63 6f 6e 74 69 6e 65 |nt (cell|-contine|
|00001640| 6e 74 20 63 6f 75 6e 74 | 72 79 29 29 29 0d 20 20 |nt count|ry))). |
|00001650| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 69 66 20 | | (if |
|00001660| 28 6e 65 71 20 63 6f 6e | 74 69 6e 65 6e 74 2d 69 |(neq con|tinent-i|
|00001670| 64 20 28 63 6f 6e 74 69 | 6e 65 6e 74 2d 69 64 20 |d (conti|nent-id |
|00001680| 61 64 6a 2d 63 6f 6e 74 | 69 6e 65 6e 74 29 29 0d |adj-cont|inent)).|
|00001690| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000016a0| 28 70 75 73 68 6e 65 77 | 20 61 64 6a 2d 63 6f 6e |(pushnew| adj-con|
|000016b0| 74 69 6e 65 6e 74 20 61 | 64 6a 2d 63 6f 6e 74 69 |tinent a|dj-conti|
|000016c0| 6e 65 6e 74 73 20 3a 6b | 65 79 20 23 27 63 6f 6e |nents :k|ey #'con|
|000016d0| 74 69 6e 65 6e 74 2d 69 | 64 29 29 29 29 29 29 29 |tinent-i|d)))))))|
|000016e0| 0d 20 20 20 20 29 29 0d | 0d 0d 0d 0d 28 64 65 66 |. )).|....(def|
|000016f0| 6d 65 74 68 6f 64 20 69 | 6e 69 74 69 61 6c 69 7a |method i|nitializ|
|00001700| 65 2d 70 6c 61 79 65 72 | 73 2d 61 6e 64 2d 77 69 |e-player|s-and-wi|
|00001710| 6e 64 6f 77 20 28 28 6f | 62 20 63 6f 6e 71 75 65 |ndow ((o|b conque|
|00001720| 73 74 2d 63 6f 6e 74 72 | 6f 6c 29 29 0d 20 20 28 |st-contr|ol)). (|
|00001730| 6c 65 74 20 28 28 63 6f | 6e 74 72 6f 6c 2d 70 6c |let ((co|ntrol-pl|
|00001740| 61 79 65 72 73 20 28 29 | 29 0d 20 20 20 20 20 20 |ayers ()|). |
|00001750| 20 20 28 77 69 6e 64 6f | 77 2d 70 6c 61 79 65 72 | (windo|w-player|
|00001760| 73 20 28 29 29 29 0d 20 | 20 20 20 28 64 6f 6c 69 |s ())). | (doli|
|00001770| 73 74 20 28 70 6c 61 79 | 65 72 20 28 70 6c 61 79 |st (play|er (play|
|00001780| 65 72 73 20 6f 62 29 29 | 0d 20 20 20 20 20 20 28 |ers ob))|. (|
|00001790| 6c 65 74 2a 20 28 28 74 | 79 70 65 20 28 66 69 72 |let* ((t|ype (fir|
|000017a0| 73 74 20 70 6c 61 79 65 | 72 29 29 0d 20 20 20 20 |st playe|r)). |
|000017b0| 20 20 20 20 20 20 20 20 | 20 28 6e 61 6d 65 20 28 | | (name (|
|000017c0| 73 65 63 6f 6e 64 20 70 | 6c 61 79 65 72 29 29 0d |second p|layer)).|
|000017d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 63 6f | | (co|
|000017e0| 6c 6f 72 20 28 74 68 69 | 72 64 20 70 6c 61 79 65 |lor (thi|rd playe|
|000017f0| 72 29 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |r)). | |
|00001800| 20 28 69 64 20 28 67 65 | 6e 73 79 6d 20 6e 61 6d | (id (ge|nsym nam|
|00001810| 65 29 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |e)). | |
|00001820| 20 28 70 6c 61 79 65 72 | 2d 6f 62 20 28 6d 61 6b | (player|-ob (mak|
|00001830| 65 2d 69 6e 73 74 61 6e | 63 65 20 74 79 70 65 0d |e-instan|ce type.|
|00001840| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001850| 20 20 20 20 20 20 20 20 | 20 20 3a 69 64 20 69 64 | | :id id|
|00001860| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00001870| 20 20 20 20 20 20 20 20 | 20 20 20 3a 63 6f 6e 74 | | :cont|
|00001880| 72 6f 6c 20 6f 62 29 29 | 29 0d 20 20 20 20 20 20 |rol ob))|). |
|00001890| 20 20 28 70 75 73 68 20 | 28 6d 61 6b 65 2d 70 6c | (push |(make-pl|
|000018a0| 61 79 65 72 20 0d 20 20 | 20 20 20 20 20 20 20 20 |ayer . | |
|000018b0| 20 20 20 20 20 3a 6e 61 | 6d 65 20 6e 61 6d 65 0d | :na|me name.|
|000018c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a | | :|
|000018d0| 69 64 20 69 64 0d 20 20 | 20 20 20 20 20 20 20 20 |id id. | |
|000018e0| 20 20 20 20 20 3a 6f 62 | 6a 65 63 74 20 70 6c 61 | :ob|ject pla|
|000018f0| 79 65 72 2d 6f 62 0d 20 | 20 20 20 20 20 20 20 20 |yer-ob. | |
|00001900| 20 20 20 20 20 20 3a 63 | 6f 75 6e 74 72 69 65 73 | :c|ountries|
|00001910| 20 28 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 | (). | |
|00001920| 20 20 20 3a 6e 2d 63 61 | 72 64 73 20 30 0d 20 20 | :n-ca|rds 0. |
|00001930| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 74 79 | | :ty|
|00001940| 70 65 20 74 79 70 65 29 | 0d 20 20 20 20 20 20 20 |pe type)|. |
|00001950| 20 20 20 20 20 20 20 63 | 6f 6e 74 72 6f 6c 2d 70 | c|ontrol-p|
|00001960| 6c 61 79 65 72 73 29 0d | 20 20 20 20 20 20 20 20 |layers).| |
|00001970| 28 70 75 73 68 20 28 63 | 6f 6e 71 75 65 73 74 2d |(push (c|onquest-|
|00001980| 69 6e 74 65 72 66 61 63 | 65 3a 3a 6d 61 6b 65 2d |interfac|e::make-|
|00001990| 70 6c 61 79 65 72 0d 20 | 20 20 20 20 20 20 20 20 |player. | |
|000019a0| 20 20 20 20 20 20 3a 6e | 61 6d 65 20 6e 61 6d 65 | :n|ame name|
|000019b0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|000019c0| 3a 69 64 20 69 64 0d 20 | 20 20 20 20 20 20 20 20 |:id id. | |
|000019d0| 20 20 20 20 20 20 3a 6f | 62 6a 65 63 74 20 70 6c | :o|bject pl|
|000019e0| 61 79 65 72 2d 6f 62 0d | 20 20 20 20 20 20 20 20 |ayer-ob.| |
|000019f0| 20 20 20 20 20 20 20 3a | 63 6f 6c 6f 72 20 63 6f | :|color co|
|00001a00| 6c 6f 72 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |lor. | |
|00001a10| 20 20 20 3a 6e 2d 63 61 | 72 64 73 20 30 20 29 0d | :n-ca|rds 0 ).|
|00001a20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 77 69 | | wi|
|00001a30| 6e 64 6f 77 2d 70 6c 61 | 79 65 72 73 29 20 29 29 |ndow-pla|yers) ))|
|00001a40| 0d 20 20 20 20 28 73 65 | 74 66 20 28 70 6c 61 79 |. (se|tf (play|
|00001a50| 65 72 73 20 6f 62 29 20 | 28 6e 72 65 76 65 72 73 |ers ob) |(nrevers|
|00001a60| 65 20 63 6f 6e 74 72 6f | 6c 2d 70 6c 61 79 65 72 |e contro|l-player|
|00001a70| 73 29 29 0d 20 20 20 20 | 28 69 6e 69 74 69 61 6c |s)). |(initial|
|00001a80| 69 7a 65 2d 77 69 6e 64 | 6f 77 20 6f 62 20 28 6e |ize-wind|ow ob (n|
|00001a90| 72 65 76 65 72 73 65 20 | 77 69 6e 64 6f 77 2d 70 |reverse |window-p|
|00001aa0| 6c 61 79 65 72 73 29 29 | 20 29 29 0d 0d 0d 28 64 |layers))| ))...(d|
|00001ab0| 65 66 6d 65 74 68 6f 64 | 20 69 6e 69 74 69 61 6c |efmethod| initial|
|00001ac0| 69 7a 65 2d 77 69 6e 64 | 6f 77 20 28 28 6f 62 20 |ize-wind|ow ((ob |
|00001ad0| 63 6f 6e 71 75 65 73 74 | 2d 63 6f 6e 74 72 6f 6c |conquest|-control|
|00001ae0| 29 20 70 6c 61 79 65 72 | 73 29 0d 20 20 28 73 65 |) player|s). (se|
|00001af0| 74 66 20 28 77 69 6e 64 | 6f 77 20 6f 62 29 0d 20 |tf (wind|ow ob). |
|00001b00| 20 20 20 20 20 20 20 28 | 6d 61 6b 65 2d 69 6e 73 | (|make-ins|
|00001b10| 74 61 6e 63 65 20 27 63 | 6f 6e 71 75 65 73 74 2d |tance 'c|onquest-|
|00001b20| 69 6e 74 65 72 66 61 63 | 65 3a 3a 63 6f 6e 71 75 |interfac|e::conqu|
|00001b30| 65 73 74 2d 77 69 6e 64 | 6f 77 0d 20 20 20 20 20 |est-wind|ow. |
|00001b40| 20 20 20 20 20 3a 76 69 | 65 77 2d 73 69 7a 65 20 | :vi|ew-size |
|00001b50| 28 77 69 6e 64 6f 77 2d | 73 69 7a 65 20 6f 62 29 |(window-|size ob)|
|00001b60| 0d 20 20 20 20 20 20 20 | 20 20 20 3a 76 69 65 77 |. | :view|
|00001b70| 2d 70 6f 73 69 74 69 6f | 6e 20 28 77 69 6e 64 6f |-positio|n (windo|
|00001b80| 77 2d 70 6f 73 69 74 69 | 6f 6e 20 6f 62 29 0d 20 |w-positi|on ob). |
|00001b90| 20 20 20 20 20 20 20 20 | 20 3a 70 6c 61 79 65 72 | | :player|
|00001ba0| 73 20 70 6c 61 79 65 72 | 73 0d 20 20 20 20 20 20 |s player|s. |
|00001bb0| 20 20 20 20 3a 62 6f 61 | 72 64 20 28 62 6f 61 72 | :boa|rd (boar|
|00001bc0| 64 20 6f 62 29 0d 20 20 | 20 20 20 20 20 20 20 20 |d ob). | |
|00001bd0| 3a 63 6f 6e 74 69 6e 65 | 6e 74 73 20 28 63 6f 6e |:contine|nts (con|
|00001be0| 74 69 6e 65 6e 74 73 20 | 6f 62 29 0d 20 20 20 20 |tinents |ob). |
|00001bf0| 20 20 20 20 20 20 3a 6d | 61 78 2d 61 72 6d 69 65 | :m|ax-armie|
|00001c00| 73 20 28 6d 61 78 2d 61 | 72 6d 69 65 73 20 6f 62 |s (max-a|rmies ob|
|00001c10| 29 29 20 29 29 0d 0d 0d | 28 64 65 66 6d 65 74 68 |)) ))...|(defmeth|
|00001c20| 6f 64 20 69 6e 69 74 69 | 61 6c 69 7a 65 2d 63 6f |od initi|alize-co|
|00001c30| 6e 74 69 6e 65 6e 74 2d | 62 6f 72 64 65 72 73 20 |ntinent-|borders |
|00001c40| 28 28 6f 62 20 63 6f 6e | 71 75 65 73 74 2d 63 6f |((ob con|quest-co|
|00001c50| 6e 74 72 6f 6c 29 29 0d | 20 20 28 64 6f 6c 69 73 |ntrol)).| (dolis|
|00001c60| 74 20 28 63 6f 6e 74 69 | 6e 65 6e 74 20 28 63 6f |t (conti|nent (co|
|00001c70| 6e 74 69 6e 65 6e 74 73 | 20 6f 62 29 29 0d 20 20 |ntinents| ob)). |
|00001c80| 20 20 28 73 65 74 66 20 | 28 63 6f 6e 74 69 6e 65 | (setf |(contine|
|00001c90| 6e 74 2d 62 6f 72 64 65 | 72 2d 63 6f 75 6e 74 72 |nt-borde|r-countr|
|00001ca0| 69 65 73 20 63 6f 6e 74 | 69 6e 65 6e 74 29 0d 20 |ies cont|inent). |
|00001cb0| 20 20 20 20 20 20 20 20 | 20 28 63 6f 6e 74 69 6e | | (contin|
|00001cc0| 65 6e 74 2d 62 6f 72 64 | 65 72 73 20 6f 62 20 63 |ent-bord|ers ob c|
|00001cd0| 6f 6e 74 69 6e 65 6e 74 | 29 29 20 29 29 0d 0d 0d |ontinent|)) ))...|
|00001ce0| 28 64 65 66 6d 65 74 68 | 6f 64 20 63 6f 6e 74 69 |(defmeth|od conti|
|00001cf0| 6e 65 6e 74 2d 62 6f 72 | 64 65 72 73 20 28 28 6f |nent-bor|ders ((o|
|00001d00| 62 20 63 6f 6e 71 75 65 | 73 74 2d 63 6f 6e 74 72 |b conque|st-contr|
|00001d10| 6f 6c 29 20 63 6f 6e 74 | 69 6e 65 6e 74 29 0d 20 |ol) cont|inent). |
|00001d20| 20 28 77 68 65 6e 20 63 | 6f 6e 74 69 6e 65 6e 74 | (when c|ontinent|
|00001d30| 0d 20 20 20 20 28 6c 65 | 74 2a 20 28 28 63 6f 75 |. (le|t* ((cou|
|00001d40| 6e 74 72 69 65 73 20 28 | 63 6f 6e 74 69 6e 65 6e |ntries (|continen|
|00001d50| 74 2d 63 6f 75 6e 74 72 | 69 65 73 20 63 6f 6e 74 |t-countr|ies cont|
|00001d60| 69 6e 65 6e 74 29 29 0d | 20 20 20 20 20 20 20 20 |inent)).| |
|00001d70| 20 20 20 28 62 6f 72 64 | 65 72 20 28 63 6f 6e 74 | (bord|er (cont|
|00001d80| 69 6e 65 6e 74 2d 62 6f | 72 64 65 72 20 63 6f 6e |inent-bo|rder con|
|00001d90| 74 69 6e 65 6e 74 29 29 | 0d 20 20 20 20 20 20 20 |tinent))|. |
|00001da0| 20 20 20 20 28 6c 65 66 | 74 20 28 66 69 72 73 74 | (lef|t (first|
|00001db0| 20 28 66 69 72 73 74 20 | 62 6f 72 64 65 72 29 29 | (first |border))|
|00001dc0| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 28 74 6f |). | (to|
|00001dd0| 70 20 28 73 65 63 6f 6e | 64 20 28 66 69 72 73 74 |p (secon|d (first|
|00001de0| 20 62 6f 72 64 65 72 29 | 29 29 0d 20 20 20 20 20 | border)|)). |
|00001df0| 20 20 20 20 20 20 28 72 | 69 67 68 74 20 28 66 69 | (r|ight (fi|
|00001e00| 72 73 74 20 28 73 65 63 | 6f 6e 64 20 62 6f 72 64 |rst (sec|ond bord|
|00001e10| 65 72 29 29 29 0d 20 20 | 20 20 20 20 20 20 20 20 |er))). | |
|00001e20| 20 28 62 6f 74 74 6f 6d | 20 28 73 65 63 6f 6e 64 | (bottom| (second|
|00001e30| 20 28 73 65 63 6f 6e 64 | 20 62 6f 72 64 65 72 29 | (second| border)|
|00001e40| 29 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 28 63 |)). | (c|
|00001e50| 6f 75 6e 74 72 79 2d 62 | 6f 72 64 65 72 73 20 28 |ountry-b|orders (|
|00001e60| 29 29 29 0d 20 20 20 20 | 20 20 0d 20 20 20 20 20 |))). | . |
|00001e70| 20 28 64 6f 6c 69 73 74 | 20 28 63 6f 75 6e 74 72 | (dolist| (countr|
|00001e80| 79 20 63 6f 75 6e 74 72 | 69 65 73 20 63 6f 75 6e |y countr|ies coun|
|00001e90| 74 72 79 2d 62 6f 72 64 | 65 72 73 29 0d 20 20 20 |try-bord|ers). |
|00001ea0| 20 20 20 20 20 28 64 6f | 6c 69 73 74 20 28 6e 65 | (do|list (ne|
|00001eb0| 69 67 68 62 6f 72 20 28 | 63 65 6c 6c 2d 6e 65 69 |ighbor (|cell-nei|
|00001ec0| 67 68 62 6f 72 73 20 63 | 6f 75 6e 74 72 79 29 29 |ghbors c|ountry))|
|00001ed0| 0d 20 20 20 20 20 20 20 | 20 20 20 28 6c 65 74 2a |. | (let*|
|00001ee0| 20 28 28 70 6f 73 20 28 | 63 65 6c 6c 2d 70 6f 73 | ((pos (|cell-pos|
|00001ef0| 20 6e 65 69 67 68 62 6f | 72 29 29 0d 20 20 20 20 | neighbo|r)). |
|00001f00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 78 20 | | (x |
|00001f10| 28 70 6f 69 6e 74 2d 68 | 20 70 6f 73 29 29 0d 20 |(point-h| pos)). |
|00001f20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001f30| 28 79 20 28 70 6f 69 6e | 74 2d 76 20 70 6f 73 29 |(y (poin|t-v pos)|
|00001f40| 29 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |)). | (|
|00001f50| 69 66 20 28 6e 6f 74 20 | 28 61 6e 64 20 28 3c 3d |if (not |(and (<=|
|00001f60| 20 6c 65 66 74 20 78 20 | 72 69 67 68 74 29 20 28 | left x |right) (|
|00001f70| 3c 3d 20 74 6f 70 20 79 | 20 62 6f 74 74 6f 6d 29 |<= top y| bottom)|
|00001f80| 29 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |)). | |
|00001f90| 20 28 70 75 73 68 6e 65 | 77 20 63 6f 75 6e 74 72 | (pushne|w countr|
|00001fa0| 79 20 63 6f 75 6e 74 72 | 79 2d 62 6f 72 64 65 72 |y countr|y-border|
|00001fb0| 73 20 3a 74 65 73 74 20 | 23 27 65 71 75 61 6c 2d |s :test |#'equal-|
|00001fc0| 63 65 6c 6c 29 20 29 29 | 29 29 0d 20 29 29 29 0d |cell) ))|)). ))).|
|00001fd0| 0d 0d 3b 3b 3b 3b 0d 3b | 3b 3b 3b 20 4c 4f 57 20 |..;;;;.;|;;; LOW |
|00001fe0| 4c 45 56 45 4c 20 41 43 | 43 45 53 53 4f 52 53 0d |LEVEL AC|CESSORS.|
|00001ff0| 3b 3b 3b 3b 0d 0d 0d 28 | 64 65 66 6d 65 74 68 6f |;;;;...(|defmetho|
|00002000| 64 20 66 69 6e 64 2d 70 | 6c 61 79 65 72 20 28 28 |d find-p|layer ((|
|00002010| 6f 62 20 63 6f 6e 71 75 | 65 73 74 2d 63 6f 6e 74 |ob conqu|est-cont|
|00002020| 72 6f 6c 29 20 69 64 29 | 0d 20 20 28 66 69 6e 64 |rol) id)|. (find|
|00002030| 20 69 64 20 28 70 6c 61 | 79 65 72 73 20 6f 62 29 | id (pla|yers ob)|
|00002040| 0d 20 20 20 20 20 20 20 | 20 3a 74 65 73 74 20 23 |. | :test #|
|00002050| 27 28 6c 61 6d 62 64 61 | 20 28 69 20 6a 29 20 0d |'(lambda| (i j) .|
|00002060| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002070| 20 20 28 65 71 20 69 20 | 28 70 6c 61 79 65 72 2d | (eq i |(player-|
|00002080| 69 64 20 6a 29 29 29 29 | 29 0d 0d 0d 28 64 65 66 |id j))))|)...(def|
|00002090| 6d 65 74 68 6f 64 20 66 | 69 6e 64 2d 70 6c 61 79 |method f|ind-play|
|000020a0| 65 72 2d 6f 62 6a 65 63 | 74 20 28 28 6f 62 20 63 |er-objec|t ((ob c|
|000020b0| 6f 6e 71 75 65 73 74 2d | 63 6f 6e 74 72 6f 6c 29 |onquest-|control)|
|000020c0| 20 69 64 29 0d 20 20 28 | 70 6c 61 79 65 72 2d 6f | id). (|player-o|
|000020d0| 62 6a 65 63 74 20 28 66 | 69 6e 64 2d 70 6c 61 79 |bject (f|ind-play|
|000020e0| 65 72 20 6f 62 20 69 64 | 29 29 29 0d 0d 0d 28 64 |er ob id|)))...(d|
|000020f0| 65 66 6d 65 74 68 6f 64 | 20 63 75 72 72 65 6e 74 |efmethod| current|
|00002100| 2d 70 6c 61 79 65 72 2d | 6f 62 6a 65 63 74 20 28 |-player-|object (|
|00002110| 28 6f 62 20 63 6f 6e 71 | 75 65 73 74 2d 63 6f 6e |(ob conq|uest-con|
|00002120| 74 72 6f 6c 29 29 0d 20 | 20 28 66 69 6e 64 2d 70 |trol)). | (find-p|
|00002130| 6c 61 79 65 72 2d 6f 62 | 6a 65 63 74 20 6f 62 20 |layer-ob|ject ob |
|00002140| 28 63 75 72 72 65 6e 74 | 2d 70 6c 61 79 65 72 20 |(current|-player |
|00002150| 6f 62 29 29 29 0d 0d 0d | 28 64 65 66 6d 65 74 68 |ob)))...|(defmeth|
|00002160| 6f 64 20 66 69 6e 64 2d | 63 6f 6e 74 69 6e 65 6e |od find-|continen|
|00002170| 74 20 28 28 6f 62 20 63 | 6f 6e 71 75 65 73 74 2d |t ((ob c|onquest-|
|00002180| 63 6f 6e 74 72 6f 6c 29 | 20 69 64 29 0d 20 20 28 |control)| id). (|
|00002190| 66 69 6e 64 20 69 64 20 | 28 63 6f 6e 74 69 6e 65 |find id |(contine|
|000021a0| 6e 74 73 20 6f 62 29 0d | 20 20 20 20 20 20 20 20 |nts ob).| |
|000021b0| 3a 74 65 73 74 20 23 27 | 28 6c 61 6d 62 64 61 20 |:test #'|(lambda |
|000021c0| 28 69 20 6a 29 20 0d 20 | 20 20 20 20 20 20 20 20 |(i j) . | |
|000021d0| 20 20 20 20 20 20 20 20 | 20 28 65 71 20 69 20 28 | | (eq i (|
|000021e0| 63 6f 6e 74 69 6e 65 6e | 74 2d 69 64 20 6a 29 29 |continen|t-id j))|
|000021f0| 29 29 29 0d 20 20 0d 0d | 28 64 65 66 75 6e 20 65 |))). ..|(defun e|
|00002200| 71 75 61 6c 2d 70 6c 61 | 79 65 72 20 28 69 20 6a |qual-pla|yer (i j|
|00002210| 29 0d 20 20 28 65 71 20 | 28 70 6c 61 79 65 72 2d |). (eq |(player-|
|00002220| 69 64 20 69 29 0d 20 20 | 20 20 20 20 28 70 6c 61 |id i). | (pla|
|00002230| 79 65 72 2d 69 64 20 6a | 29 29 29 0d 0d 0d 28 64 |yer-id j|)))...(d|
|00002240| 65 66 75 6e 20 65 71 75 | 61 6c 2d 63 65 6c 6c 20 |efun equ|al-cell |
|00002250| 28 69 20 6a 29 0d 20 20 | 28 3d 20 28 63 65 6c 6c |(i j). |(= (cell|
|00002260| 2d 70 6f 73 20 69 29 0d | 20 20 20 20 20 28 63 65 |-pos i).| (ce|
|00002270| 6c 6c 2d 70 6f 73 20 6a | 29 29 29 0d 0d 0d 28 64 |ll-pos j|)))...(d|
|00002280| 65 66 6d 65 74 68 6f 64 | 20 63 6f 75 6e 74 72 79 |efmethod| country|
|00002290| 2d 61 74 20 28 28 6f 62 | 20 63 6f 6e 71 75 65 73 |-at ((ob| conques|
|000022a0| 74 2d 63 6f 6e 74 72 6f | 6c 29 20 70 6f 73 29 0d |t-contro|l) pos).|
|000022b0| 20 20 28 69 66 20 28 61 | 6e 64 20 28 69 6e 74 65 | (if (a|nd (inte|
|000022c0| 67 65 72 70 20 70 6f 73 | 29 0d 20 20 20 20 20 20 |gerp pos|). |
|000022d0| 20 20 20 20 20 28 3c 3d | 20 30 20 28 70 6f 69 6e | (<=| 0 (poin|
|000022e0| 74 2d 68 20 70 6f 73 29 | 20 28 6d 61 78 2d 78 20 |t-h pos)| (max-x |
|000022f0| 6f 62 29 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |ob)). | |
|00002300| 28 3c 3d 20 30 20 28 70 | 6f 69 6e 74 2d 76 20 70 |(<= 0 (p|oint-v p|
|00002310| 6f 73 29 20 28 6d 61 78 | 2d 79 20 6f 62 29 29 29 |os) (max|-y ob)))|
|00002320| 0d 20 20 20 20 28 61 72 | 65 66 20 28 67 72 69 64 |. (ar|ef (grid|
|00002330| 20 6f 62 29 20 28 70 6f | 69 6e 74 2d 68 20 70 6f | ob) (po|int-h po|
|00002340| 73 29 20 28 70 6f 69 6e | 74 2d 76 20 70 6f 73 29 |s) (poin|t-v pos)|
|00002350| 29 29 29 0d 00 00 00 00 | 00 00 00 00 00 00 00 00 |))).....|........|
|00002360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002380| 00 00 01 00 00 00 01 8d | 00 00 00 8d 00 00 00 52 |........|.......R|
|00002390| 00 8b f4 8d ea af bb 0c | ed 01 bf 8d 90 ae cf c2 |........|........|
|000023a0| 5f 00 57 00 07 08 03 0a | 6f 18 3a 00 00 01 00 01 |_.W.....|o.:.....|
|000023b0| 1d 63 6f 6e 71 75 65 73 | 74 2d 64 61 74 61 2d 73 |.conques|t-data-s|
|000023c0| 74 72 75 63 74 75 72 65 | 73 2e 6c 69 73 70 02 00 |tructure|s.lisp..|
|000023d0| 00 00 54 45 58 54 43 43 | 4c 32 01 00 00 3c 00 00 |..TEXTCC|L2...<..|
|000023e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000023f0| 00 00 a6 f0 d7 04 00 00 | 22 d4 00 00 01 df 01 db |........|".......|
|00002400| 00 02 0a 6f 23 3b 00 00 | 02 00 01 01 8d d5 dd f4 |...o#;..|........|
|00002410| 28 3c 91 00 03 8d c4 db | 62 0c 00 db 9a 98 02 99 |(<......|b.......|
|00002420| a5 89 f0 8b ab 8d ea af | bb 8c 22 03 9b 8d 90 af |........|..".....|
|00002430| 99 f0 eb 9b 8d 90 ae cf | da 09 03 00 00 0e 0c 03 |........|........|
|00002440| 0a 6f 0e 1e f0 00 02 00 | 01 11 8d d5 8b f4 f3 f5 |.o......|........|
|00002450| 92 cb 02 ee 85 bf ae d9 | 92 ff 02 b1 a3 01 00 02 |........|........|
|00002460| 07 06 6f 2a 52 f0 00 01 | 00 23 11 8d ef c5 8b f4 |..o*R...|.#......|
|00002470| f3 f5 42 de 01 cb 9f 2d | 28 00 0b 89 cd eb b3 bf |..B....-|(.......|
|00002480| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00002490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000024a0| 00 00 00 00 00 00 00 06 | 00 08 00 2c 00 06 01 dd |........|...,....|
|000024b0| 02 2e 00 2c 00 06 01 dd | 02 2e 00 00 00 00 00 00 |...,....|........|
|000024c0| 06 6c 00 00 06 6c 00 00 | 05 eb 01 00 00 00 00 0f |.l...l..|........|
|000024d0| 00 00 05 54 69 6d 65 73 | 06 4d 6f 6e 61 63 6f 00 |...Times|.Monaco.|
|000024e0| 00 00 1a 00 02 00 14 0c | 01 00 04 09 00 01 00 00 |........|........|
|000024f0| 00 02 00 01 07 01 00 1f | 52 02 00 1f 75 01 00 00 |........|R...u...|
|00002500| 32 02 00 01 07 01 00 18 | 57 02 00 18 7a 00 00 01 |2.......|W...z...|
|00002510| 00 00 00 01 8d 00 00 00 | 8d 00 00 00 52 00 19 a7 |........|....R...|
|00002520| 8c 0a a8 00 00 00 1c 00 | 52 00 01 46 52 45 44 00 |........|R..FRED.|
|00002530| 01 00 12 4d 50 53 52 00 | 00 00 2a 00 02 ff ff 00 |...MPSR.|..*.....|
|00002540| 00 00 5f 00 00 00 00 00 | 03 ff ff 00 00 00 4c 00 |.._.....|......L.|
|00002550| 00 00 00 03 ed ff ff 00 | 00 00 00 00 1a 85 e4 00 |........|........|
|00002560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+